|
|  Double Sea Towers
|  Written Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Double Sea Towers"

  FLAGS ClickFly AutoFly AnimateFly
  PACKS 2
  WIDTH  CW + COW + 11 * CW + COW + CW
  HEIGHT CH + CH + 8 * COH + 11 * COH
  ZeroToWin 104 - CARDSIN$1

| Foundations

|-- Left

  FOR pile = 1 TO 4
|-- Left
    FOUNDATION
      X 0
      Y pile * CH
      ID 1
    END
|-- Right
    FOUNDATION
      X CW + COW + 11 * CW + COW 
      Y pile * CH
      ID 1
    END
  END

| Tableau

  FOR stack = 0 TO 10
    STACK
      X CW + COW + stack * CW
      Y CH
      FIRST 1,13
      DEAL 9,1
      DRAGUPTO 1 + EMPTY$2
      DragOffset -1
      FLAGS DeepCheck ClickFly JoinSS__ DragSS__
    END
  END

| Left Cells

  FOR stack = 1 TO 2
    STACK
      X CW + COW + stack * CW
      Y 0
      FIRST 1,13
      MAX 1
      DRAGUPTO 1
      FLAGS PaintLast ClickFly
      ID 2
    END
  END

| Middle Cells

  FOR stack = 3 TO 7
    STACK
      X CW + COW + stack * CW
      Y 0
      FIRST 1,13
      MAX 1
      DEAL 1,1
      DRAGUPTO 1
      FLAGS PaintLast ClickFly
      ID 2
    END
  END

| Right Cells

  FOR stack = 8 TO 9
    STACK
      X CW + COW + stack * CW
      Y 0
      FIRST 1,13
      MAX 1
      DEAL 1,1
      DRAGUPTO 1
      FLAGS PaintLast ClickFly
      ID 2
    END
  END

END
